home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 1 / The Arsenal Files (Arsenal Computer).ISO / archive / unixarc.pt1 < prev    next >
Internet Message Format  |  1994-01-23  |  49KB
  1. From pacbell!ames!mailrus!uwmcsd1!bbn!bbn.com!rsalz Fri Jul  1 13:09:02 1988
  2. From: rsalz@uunet.uu.net (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v15i077:  ARC (PC compression program), v5.21, Part01/05
  5. Message-ID: <965@fig.bbn.com>
  6. Date: 1 Jul 88 20:09:02 GMT
  7.  
  8. Submitted-by: hyc@math.lsa.umich.edu
  9. Posting-number: Volume 15, Issue 77
  10. Archive-name: arc5.21/part01
  11.  
  12. [  Howard Chu did a lot of work cleaning this up, porting it, and in
  13.    general making it reasonable.  Some work will be needed for SystemV;
  14.    I mailed Howard a copy of the missing routines, so perhaps whoever
  15.    gets to him first will be able to get it from him.  John Gilmore
  16.    made a tremendous effort in contacting Thom Henderson and figuring
  17.    out what the legal obligations are to post this as NON SHAREWARE
  18.    to Usenet.  Please take note of those two words:   ^^^ ^^^^^^^^^.
  19.    Thanks to both of them (Howard and John, not the words :-).  --r$ ]
  20.  
  21. #--------------------------------CUT HERE-------------------------------------
  22. #! /bin/sh
  23. #
  24. # This is a shell archive.  Save this into a file, edit it
  25. # and delete all lines above this comment.  Then give this
  26. # file to sh by executing the command "sh file".  The files
  27. # will be extracted into the current directory owned by
  28. # you with default permissions.
  29. #
  30. # The files contained herein are:
  31. #
  32. # -rw-r--r--  1 hyc          2269 Jun 18 03:39 Read.me
  33. # -rw-rw-rw-  1 hyc          4064 Jun 13 04:32 Readme.too
  34. # -rw-r--r--  1 hyc          2413 Jun 18 03:42 Manifest
  35. # -rw-r--r--  1 hyc          1323 Jun  2 00:43 Make.tws
  36. # -rw-r--r--  1 hyc          2644 Jun 18 03:36 Makefile
  37. # -rw-r--r--  1 hyc          1892 May 14  1987 Changes.521
  38. # -rw-r--r--  1 hyc          5577 Apr 11 19:15 Arcinfo
  39. # -rw-r--r--  1 hyc         18327 Jun 13 04:09 Sysvarcstuf
  40. # -rw-r--r--  1 hyc          2985 Jun 13 13:40 tws.h
  41. #
  42. echo 'x - Read.me'
  43. if test -f Read.me; then echo 'shar: not overwriting Read.me'; else
  44. sed 's/^X//' << '________This_Is_The_END________' > Read.me
  45. XHello again,
  46. X    herein you should be pleased to find the complete sources for the
  47. Xlatest and greatest version of ARC, based on the sources for version 5.21
  48. Xof the MSDOS ARC program. The patches to the previous release, 5.12, with
  49. Xsquashing algorithm, have also been applied here. The code is known to
  50. Xwork on a Sun 3 running SunOS 3.4, Apollo DN3000 running SR9.7 DOMAIN/IX,
  51. XVax 750 running 4.3BSD, and IBM 3090 running MTS. It is also now working
  52. Xon Atari STs, as well as Apollo DN3000 running SR10 DOMAIN/OS (Beta).
  53. X
  54. X    Also included is a detailed description of the format of a .ARC
  55. Xfile directory entry, in the file named Arcinfo. Could be useful if you're
  56. Xtrying to port ARC to any more esoteric systems...
  57. X
  58. X    Jon Zeeff has sent along some code he used to get this working on
  59. XSys V style machines. Looks like scandir is all that's really missing. I
  60. Xhaven't tried any of it out for myself yet, but the code is in the file
  61. X"Sysvarcstuf" should you need it.
  62. X
  63. X    One final necessary inclusion: sources for libtws.a, which was
  64. Xposted a long time ago to mod.sources as part of a package he called
  65. X"phoon" - a program that calculated and displayed the PHase of the mOON.
  66. XThe only thing I use the time routines for here is to convert an expanded
  67. Xdate/time back into a Unix style time value, for keeping file modification
  68. Xtimes straight.
  69. X
  70. X    Thanks to Leo Wilson (leo@cs.buffalo.edu) for sending his copy of
  71. Xa man page for ARC. I've updated it for this version, and included it here
  72. Xas well.
  73. X
  74. X    The default value of the (I)mage mode flag has changed. ARC will
  75. Xnow treat files as binary files, unless the 'i' flag is given. Handling of
  76. XCarriage Returns has been improved a bit. ARC is now a little smarter about
  77. Xtemporary files as well.
  78. X
  79. XTo compile all this stuff... Edit Make.tws (shouldn't need to change anything
  80. Xhere, really.) Edit arc.h. After that, just type make and wait a while...
  81. X(Oh yeah - there's a few makefile macros that need redefining for Atari ST...)
  82. XOk... Well, I've had this for a while, and it works for me, but if somehow
  83. XI've goofed, let me know.
  84. X    
  85. X  /
  86. X /_ , ,_.                      Howard Chu
  87. X/ /(_/(__                University of Michigan
  88. X    /           Computing Center          College of LS&A
  89. X   '              Unix Project          Information Systems
  90. ________This_Is_The_END________
  91. if test `wc -c < Read.me` -ne     2269; then
  92.     echo 'shar: Read.me was damaged during transit (should have been     2269 bytes)'
  93. fi
  94. fi        ; : end of overwriting check
  95. echo 'x - Readme.too'
  96. if test -f Readme.too; then echo 'shar: not overwriting Readme.too'; else
  97. sed 's/^X//' << '________This_Is_The_END________' > Readme.too
  98. XNotes for ARC 5.21                                        June 6, 1988
  99. X 
  100. XThis program is based on the MSDOS ARC program, version 5.21, plus
  101. Xa few enhancements... 
  102. X 
  103. X o ARC also performs Huffman Squeezing on data. The Huffman Squeeze
  104. X   algorithm was removed from MSDOS ARC after version 5.12. It turns
  105. X   out to be more efficient than Lempel-Ziv style compression when
  106. X   compressing graphic images. Squeeze analysis is always done now,
  107. X   and the best of packing, squeezing, or crunching is used.
  108. X 
  109. X o Compresses and extracts Squashed files. "Squashing" was created
  110. X   by Phil Katz in his PKxxx series of ARC utility programs for
  111. X   MSDOS. Dan Lanciani wrote the original modifications to ARC's
  112. X   Crunch code to handle Squashing. I've made minor changes since
  113. X   then, mostly to reduce the amount of memory required. The 'q'
  114. X   option flag must be specified to Squash files. The Squashing
  115. X   algorithm will be used instead of the usual Crunch algorithm,
  116. X   and will be compared against packing and squeezing, as before.
  117. X 
  118. XSystem specific notes:
  119. X 
  120. X   On MTS, an additional option flag, 'i' for "image mode," was
  121. Xused. ARC assumes files are text, by default, and will translate
  122. XMTS files from EBCDIC to ASCII before storing in an archive, and
  123. Xtranslates from ASCII to EBCDIC upon extraction. Specifying the
  124. X'i' flag will inhibit this translation. This would most commonly
  125. Xbe used when shipping binary images such as TeX DVI files, other
  126. X.ARC files stored within an archive, etc... The 'r' (run) command
  127. Xis omitted. It just doesn't seem very useful. Also, ARC cannot
  128. Xrestore MTS files with their original time stamps. (Maybe in a
  129. Xfuture release...)
  130. X 
  131. X   On Unix(tm) systems, the 'i' flag is also present. Unix ARC
  132. Xassumes a binary file, by default. Here the only translation
  133. Xinvolved is in end-of-line processing. When storing text files, ARC will
  134. Xchange '\n' to '\r\n', and does the opposite when extracting files.
  135. XCarriage returns in any other location are preserved when extracting.
  136. XThis translation only occurs if the 'i' flag is given.
  137. X
  138. X   On the Atari ST, the 'h' (for "hold screen") option is present,
  139. Xwhich simply delays exiting the program. This is typically used when
  140. Xexecuting ARC from the desktop, to allow reading all of ARC's output
  141. Xbefore the screen is cleared and the desktop is redrawn. The program
  142. Xwill prompt and wait for a keypress before exiting. Note that since
  143. Xthere are no "options" for the MARC program, the "hold screen" option
  144. Xis always active for MARC.
  145. X 
  146. X   On both Unix and Atari systems, ARC & MARC will search for an
  147. Xenvironment variable named "ARCTEMP" or "TMPDIR." If present, any
  148. Xtemporary files will be created in the specified directory. This is
  149. Xprobably insignificant for Unix users, but can be handy on the Atari,
  150. Xin combination with a RAMdisk. Highly recommended for floppy users.
  151. X(Unfortunately, you can only take advantage of this when running some
  152. Xform of command shell that allows setting environment variables. Thus,
  153. Xyou won't see any speed gains when running from the desktop.)
  154. X 
  155. X 
  156. XThat about covers things. The enclosed documentation is taken directly
  157. Xfrom the MSDOS distribution of ARC. Unless specified differently here,
  158. Xthe programs behave indentically. Note that ARC521.DOC is identical to
  159. XARC520.DOC - the differences between the two versions are described in
  160. Xthe file CHANGES.521.
  161. X 
  162. XOh yeah - this program may be distributed freely so long as you don't
  163. Xmodify it in any way. You may not charge for distributing it. (Don't
  164. Xfeel bad, I can't charge for it either. }-) It'd be nice if you kept
  165. Xthis and the other enclosed doc files with it when distributing, but
  166. XI'm not going to make a fuss about it. Most people are so familiar
  167. Xwith the program by now that it wouldn't matter much anyway. You
  168. Xshould keep this README file around, so bug reports & such will find
  169. Xtheir way back to me. (Bugs? What bugs? Nah, there aren't any bugs...)
  170. X 
  171. X         /                 Howard Chu
  172. X   ___  /_ , ,_.     University of Michigan
  173. X       / /(_/(__     hyc@umix.cc.umich.edu
  174. X           /                umix!hyc
  175. X          '     
  176. ________This_Is_The_END________
  177. if test `wc -c < Readme.too` -ne     4064; then
  178.     echo 'shar: Readme.too was damaged during transit (should have been     4064 bytes)'
  179. fi
  180. fi        ; : end of overwriting check
  181. echo 'x - Manifest'
  182. if test -f Manifest; then echo 'shar: not overwriting Manifest'; else
  183. sed 's/^X//' << '________This_Is_The_END________' > Manifest
  184. XContents of this distribution....
  185. X   5577 Apr 11 19:15 Arcinfo       Description of .ARC file format
  186. X  54144 Jun 13 05:26 Arc521.doc       Full program documentation, no CRs.
  187. X   1892 May 14  1987 Changes.521   Differences between 5.20 and 5.21
  188. X   1323 Apr 11 19:10 Make.tws       Makefile for the time routine library
  189. X   1731 Jun 13 03:58 Makefile       Makefile for ARC
  190. X   2413 Jun 13 05:29 Manifest       This file
  191. X   2269 Jun 18 03:39 Read.me       Spiel
  192. X   2190 Jun 13 04:23 Readme.too       More spiel
  193. X  18327 Jun 13 04:09 Sysvarcstuf   Useful for Sys V users.
  194. X   7232 Jun 12 19:31 arc.1       A man page, *roff source
  195. X  11116 Jun 13 04:27 arc.c       Main routine, option parser...
  196. X   3318 Jun  1 19:59 arc.h       System dependencies, externs
  197. X   9286 Jun 13 00:31 arcadd.c       Top level routine for adding to archive
  198. X   1204 Jun  1 15:16 arccode.c       Code for file encryption/decryption
  199. X   3396 Jun  1 19:18 arccvt.c       Convert to new packing method
  200. X   2070 Jun 13 04:26 arcdata.c       Declarations of externs from arc.h
  201. X   2055 Apr 19 01:39 arcdel.c       Delete files from archive
  202. X   4970 Jun 13 00:41 arcdos.c       OS specific file management routines
  203. X   4897 Jun  1 20:18 arcext.c       Top level routine for extraction
  204. X   7384 Jun  2 16:27 arcio.c       OS specific low-level I/O routines
  205. X   4418 Jun  1 18:06 arclst.c       List contents of archive
  206. X  22109 Jun  1 20:01 arclzw.c       Low-level Lempel-Zev compression
  207. X   3026 Jun  1 19:41 arcmatch.c       Pattern matching routines
  208. X   8319 Jun 13 04:07 arcmisc.c       OS specific miscellaneous functions
  209. X   7376 Jun  2 16:27 arcpack.c       Mid-level compression code
  210. X   3838 Jun  1 19:57 arcrun.c       Run files from archive
  211. X   1645 Apr 17 18:53 arcs.h       Declaration of .ARC header format
  212. X  14613 Jun  2 16:27 arcsq.c       Low-level Huffman Squeeze code
  213. X  11587 Jun  1 20:02 arcsqs.c       Low-level Squash code
  214. X   4680 Jun 13 00:43 arcsvc.c       .ARC file utilities
  215. X   1284 Apr 19 01:40 arctst.c       Test archive integrity
  216. X   5325 Jun  7 03:16 arcunp.c       Mid-level extraction code
  217. X   2484 Jun  2 16:28 arcusq.c       Low-level Huffman unSqueezer
  218. X   9035 Apr 11 19:10 dtime.c       sources for the time routine library...
  219. X   7327 Apr 11 19:11 dtimep.lex
  220. X    356 Apr 11 19:12 lexedit.sed
  221. X   3765 Apr 11 19:12 lexstring.c
  222. X   2241 Apr 11 19:13 libtws.3       man page for the time routine library
  223. X   9053 Jun  6 01:04 marc.c       source for the marc program
  224. X   2993 Jun  2 00:38 tws.h       header file for the time routine library
  225. ________This_Is_The_END________
  226. if test `wc -c < Manifest` -ne     2413; then
  227.     echo 'shar: Manifest was damaged during transit (should have been     2413 bytes)'
  228. fi
  229. fi        ; : end of overwriting check
  230. echo 'x - Make.tws'
  231. if test -f Make.tws; then echo 'shar: not overwriting Make.tws'; else
  232. sed 's/^X//' << '________This_Is_The_END________' > Make.tws
  233. X# Makefile for phoon, deltime, parsetime, and libtws (stolen from mh).
  234. X
  235. X# Valid options:
  236. X#   BSD42      Set this if your system is BSD 4.2 or later.
  237. X#   SYS5       Set this if your system is System V.
  238. X#   EUROPE     Makes nn/nn/nn mean dd/mm/yy instead of mm/dd/yy.
  239. X#   ATZ        This has something to do with alpha-numeric time zones.
  240. X#   DSTXXX     This has something to do with daylight savings time.
  241. X#   HUJI       I don't
  242. X#   INETONLY           know what
  243. X#   LEXDEBUG                     the rest of these
  244. X#   ONECASE                                        do.
  245. X#
  246. X# Original posted to mod.sources by Jef Poskanzer. Cannibalized for use
  247. X# with ARC by Howard Chu.
  248. XOPTIONS    =    -DBSD42 -DATZ -DDSTXXX -DONECASE
  249. X
  250. X
  251. XCC      =    cc
  252. XCFLAGS  =    -O $(OPTIONS)
  253. XLDFLAGS =    -ns
  254. X
  255. Xlibtws.a:    dtime.o dtimep.o lexstring.o
  256. X        ar r libtws.a dtime.o dtimep.o lexstring.o
  257. X# The following amusing bullshit makes sure that ranlib
  258. X# gets executed if it is present, no matter which shell
  259. X# make uses.  If there's a better way to do this, someone
  260. X# please tell me!
  261. X        -if test -r /usr/bin/ranlib ; then ranlib libtws.a ; fi
  262. X        -if ( -r /usr/bin/ranlib ) ranlib libtws.a
  263. X
  264. Xdtime.o:    dtime.c tws.h
  265. X
  266. Xdtimep.o:    dtimep.c tws.h
  267. X
  268. Xdtimep.c:    dtimep.lex
  269. X        lex -nt dtimep.lex | sed -f lexedit.sed > dtimep.c
  270. X
  271. Xlexstring.o:    lexstring.c
  272. X        $(CC) $(CFLAGS) -c lexstring.c
  273. ________This_Is_The_END________
  274. if test `wc -c < Make.tws` -ne     1323; then
  275.     echo 'shar: Make.tws was damaged during transit (should have been     1323 bytes)'
  276. fi
  277. fi        ; : end of overwriting check
  278. echo 'x - Makefile'
  279. if test -f Makefile; then echo 'shar: not overwriting Makefile'; else
  280. sed 's/^X//' << '________This_Is_The_END________' > Makefile
  281. X#
  282. X#       Makefile for Hack-attack 1.3
  283. X#       VAX 11/780 BSD4.2 "ARC" utility
  284. X#
  285. X# Originals from Dan Lanciani, James Turner, and others...
  286. X#
  287. X# Modified to support squashing, also added targets for the time routine
  288. X# library.  -- Howard Chu, hyc@umix.cc.umich.edu, 4-11-88
  289. X#
  290. X# I put SRCDIR on a real disk on the ST, but copy the makefile to a
  291. X# RAMdisk and compile from there. Makes things go a bit quicker...
  292. X# This has to be done in the shell, to get the trailing backslash
  293. X# specified correctly. e.g., setenv SRCDIR='d:\src\arc\'
  294. XSRCDIR = 
  295. X
  296. XHEADER = $(SRCDIR)arc.h
  297. X
  298. X# Add a ".TTP" suffix to the executable files on an ST.
  299. X#PROG = .ttp
  300. XPROG =
  301. X
  302. X# TWSLIB is only needed on Unix systems. Likewise for TWHEAD.
  303. X#TWSLIB =
  304. X#TWHEAD =
  305. XTWSLIB = libtws.a
  306. XTWHEAD = tws.h
  307. X
  308. X# For MWC 3.0 on the Atari ST, use:
  309. X#CFLAGS = -VCOMPAC -VPEEP
  310. XCFLAGS = -O
  311. X
  312. XOBJS = arc.o arcadd.o arccode.o arccvt.o arcdata.o arcdel.o arcdos.o \
  313. Xarcext.o arcio.o arclst.o arclzw.o arcmatch.o arcpack.o arcrun.o \
  314. Xarcsq.o arcsqs.o arcsvc.o arctst.o arcunp.o arcusq.o arcmisc.o
  315. X
  316. XMOBJ = marc.o arcdata.o arcdos.o arcio.o arcmatch.o arcmisc.o
  317. X
  318. Xarc$(PROG):    $(OBJS) $(TWSLIB)
  319. X    cc -o arc$(PROG) $(OBJS) $(TWSLIB)
  320. X
  321. Xmarc$(PROG):    $(MOBJ) $(TWSLIB)
  322. X    cc -o marc$(PROG) $(MOBJ) $(TWSLIB)
  323. X
  324. Xclean:
  325. X    -rm *.o arc$(PROG) marc$(PROG) $(TWSLIB)
  326. X
  327. X$(HEADER):    $(SRCDIR)arcs.h
  328. X    touch $(HEADER)
  329. X
  330. Xarc.o:    $(HEADER)
  331. X    cc $(CFLAGS) -c $(SRCDIR)arc.c
  332. Xmarc.o:    $(HEADER)
  333. X    cc $(CFLAGS) -c $(SRCDIR)marc.c
  334. Xarcadd.o:    $(HEADER)
  335. X    cc $(CFLAGS) -c $(SRCDIR)arcadd.c
  336. Xarccode.o:    $(HEADER)
  337. X    cc $(CFLAGS) -c $(SRCDIR)arccode.c
  338. Xarccvt.o:    $(HEADER)
  339. X    cc $(CFLAGS) -c $(SRCDIR)arccvt.c
  340. Xarcdata.o:    $(HEADER)
  341. X    cc $(CFLAGS) -c $(SRCDIR)arcdata.c
  342. Xarcdel.o:    $(HEADER)
  343. X    cc $(CFLAGS) -c $(SRCDIR)arcdel.c
  344. Xarcdir.o:    $(HEADER)
  345. X    cc $(CFLAGS) -c $(SRCDIR)arcdir.c
  346. Xarcdos.o:    $(HEADER) $(TWHEAD)
  347. X    cc $(CFLAGS) -c $(SRCDIR)arcdos.c
  348. Xarcext.o:    $(HEADER)
  349. X    cc $(CFLAGS) -c $(SRCDIR)arcext.c
  350. Xarcio.o:    $(HEADER)
  351. X    cc $(CFLAGS) -c $(SRCDIR)arcio.c
  352. Xarclst.o:    $(HEADER)
  353. X    cc $(CFLAGS) -c $(SRCDIR)arclst.c
  354. Xarclzw.o:    $(HEADER)
  355. X    cc $(CFLAGS) -c $(SRCDIR)arclzw.c
  356. Xarcmatch.o:    $(HEADER)
  357. X    cc $(CFLAGS) -c $(SRCDIR)arcmatch.c
  358. Xarcmisc.o:    $(HEADER)
  359. X    cc $(CFLAGS) -c $(SRCDIR)arcmisc.c
  360. Xarcpack.o:    $(HEADER)
  361. X    cc $(CFLAGS) -c $(SRCDIR)arcpack.c
  362. Xarcrun.o:    $(HEADER)
  363. X    cc $(CFLAGS) -c $(SRCDIR)arcrun.c
  364. Xarcsq.o:    $(HEADER)
  365. X    cc $(CFLAGS) -c $(SRCDIR)arcsq.c
  366. Xarcsqs.o:    $(HEADER)
  367. X    cc $(CFLAGS) -c $(SRCDIR)arcsqs.c
  368. Xarcsvc.o:    $(HEADER)
  369. X    cc $(CFLAGS) -c $(SRCDIR)arcsvc.c
  370. Xarctst.o:    $(HEADER)
  371. X    cc $(CFLAGS) -c $(SRCDIR)arctst.c
  372. Xarcunp.o:    $(HEADER)
  373. X    cc $(CFLAGS) -c $(SRCDIR)arcunp.c
  374. Xarcusq.o:    $(HEADER)
  375. X    cc $(CFLAGS) -c $(SRCDIR)arcusq.c
  376. X
  377. Xlibtws.a:
  378. X    make -f Make.tws libtws.a
  379. ________This_Is_The_END________
  380. if test `wc -c < Makefile` -ne     2644; then
  381.     echo 'shar: Makefile was damaged during transit (should have been     2644 bytes)'
  382. fi
  383. fi        ; : end of overwriting check
  384. echo 'x - Changes.521'
  385. if test -f Changes.521; then echo 'shar: not overwriting Changes.521'; else
  386. sed 's/^X//' << '________This_Is_The_END________' > Changes.521
  387. X                        CHANGES IN VERSION 5.21
  388. X
  389. X
  390. XThe following changes have been made in ARC version 5.21, but have not
  391. Xyet been included in the manual:
  392. X
  393. Xo   When adding files to an archive, ARC now shows the stowage facter
  394. X    achieved on each file.
  395. X
  396. Xo   A bug was found that would keep an archive entry from being
  397. X    encrypted if it was stored without compression.  This has now been
  398. X    fixed.
  399. X
  400. Xo   If changes are made to a corrupted archive, the corrupted entries
  401. X    are discarded.  This makes it possible to lose data accidentally.
  402. X    ARC will now only make changes to a corrupted archive if the W
  403. X    (suppress Warnings) option has been given.
  404. X
  405. Xo   The N (suppress Notes) option now suppresses the "Creating
  406. X    archive" note when a new archive is being created.
  407. X
  408. Xo   The N (suppress Notes) option formerly did nothing useful when
  409. X    used with the L (List files) command.  It now causes a terse
  410. X    listing of filenames only, suitable for use with pipes and
  411. X    redirection.
  412. X
  413. Xo   The list of filenames given to ARC may now include indirect
  414. X    references.  If a filename begins with an "at sign" ("@"), it is
  415. X    taken to be the name of a file which contains a list of file
  416. X    names.  The list of file names may include further indirection.
  417. X    If no extension is given, ".CMD" is assumed.  For example, the
  418. X    command:
  419. X
  420. X         arc a waste junk.txt @trash
  421. X
  422. X    would cause ARC to add JUNK.TXT plus all files listed in the file
  423. X    TRASH.CMD to an archive named WASTE.ARC.  If no file is specified,
  424. X    then the list is read from standard input.  For example, the
  425. X    command:
  426. X
  427. X         arc ln waste | arc a trash @
  428. X
  429. X    would cause ARC to add files to TRASH.ARC based on the names of
  430. X    the files stored in WASTE.ARC.  It is probably a good idea to give
  431. X    the O (Overwrite) option if you are extracting files this way.
  432. X
  433. X    Version 5.21 of MARC also allows for indirection.
  434. ________This_Is_The_END________
  435. if test `wc -c < Changes.521` -ne     1892; then
  436.     echo 'shar: Changes.521 was damaged during transit (should have been     1892 bytes)'
  437. fi
  438. fi        ; : end of overwriting check
  439. echo 'x - Arcinfo'
  440. if test -f Arcinfo; then echo 'shar: not overwriting Arcinfo'; else
  441. sed 's/^X//' << '________This_Is_The_END________' > Arcinfo
  442. X
  443. XARC-FILE.INF, created by Keith Petersen, W8SDZ, 21-Sep-86, extracted
  444. Xfrom UNARC.INF by Robert A. Freed.
  445. X
  446. XFrom:     Robert A. Freed
  447. XSubject:  Technical Information for ARC files
  448. XDate:     June 24, 1986
  449. X
  450. XNote: In the following discussion, UNARC refers to my CP/M-80 program
  451. Xfor extracting files from MSDOS ARCs.  The definitions of the ARC file
  452. Xformat are based on MSDOS ARC512.EXE.
  453. X
  454. XARCHIVE FILE FORMAT
  455. X-------------------
  456. X
  457. XComponent files are stored sequentially within an archive.  Each entry
  458. Xis preceded by a 29-byte header, which contains the directory
  459. Xinformation.  There is no wasted space between entries.  (This is in
  460. Xcontrast to the centralized directory used by Novosielski libraries.
  461. XAlthough random access to subfiles within an archive can be noticeably
  462. Xslower than with libraries, archives do have the advantage of not
  463. Xrequiring pre-allocation of directory space.)
  464. X
  465. XArchive entries are normally maintained in sorted name order.  The
  466. Xformat of the 29-byte archive header is as follows:
  467. X
  468. XByte 1:  1A Hex.
  469. X         This marks the start of an archive header.  If this byte is not found 
  470. X         when expected, UNARC will scan forward in the file (up to 64K bytes) 
  471. X         in an attempt to find it (followed by a valid compression version).  
  472. X         If a valid header is found in this manner, a warning message is 
  473. X         issued and archive file processing continues.  Otherwise, the file is 
  474. X         assumed to be an invalid archive and processing is aborted.  (This is 
  475. X         compatible with MS-DOS ARC version 5.12).  Note that a special 
  476. X         exception is made at the beginning of an archive file, to accomodate 
  477. X         "self-unpacking" archives (see below).
  478. X
  479. XByte 2:  Compression version, as follows:
  480. X
  481. X         0 = end of file marker (remaining bytes not present)
  482. X         1 = unpacked (obsolete)
  483. X         2 = unpacked
  484. X         3 = packed
  485. X         4 = squeezed (after packing)
  486. X         5 = crunched (obsolete)
  487. X         6 = crunched (after packing) (obsolete)
  488. X         7 = crunched (after packing, using faster hash algorithm) (obsolete)
  489. X         8 = crunched (after packing, using dynamic LZW variations)
  490. X
  491. XBytes 3-15:  ASCII file name, nul-terminated.
  492. X
  493. X(All of the following numeric values are stored low-byte first.)
  494. X
  495. XBytes 16-19:  Compressed file size in bytes.
  496. X
  497. XBytes 20-21:  File date, in 16-bit MS-DOS format:
  498. X              Bits 15:9 = year - 1980
  499. X              Bits  8:5 = month of year
  500. X              Bits  4:0 = day of month
  501. X              (All zero means no date.)
  502. X
  503. XBytes 22-23:  File time, in 16-bit MS-DOS format:
  504. X              Bits 15:11 = hour (24-hour clock)
  505. X              Bits 10:5  = minute
  506. X              Bits  4:0  = second/2 (not displayed by UNARC)
  507. X
  508. XBytes 24-25:  Cyclic redundancy check (CRC) value (see below).
  509. X
  510. XBytes 26-29:  Original (uncompressed) file length in bytes.
  511. X              (This field is not present for version 1 entries, byte 2 = 1.  
  512. X              I.e., in this case the header is only 25 bytes long.  Because 
  513. X              version 1 files are uncompressed, the value normally found in 
  514. X              this field may be obtained from bytes 16-19.)
  515. X
  516. X
  517. XSELF-UNPACKING ARCHIVES
  518. X-----------------------
  519. X
  520. XA "self-unpacking" archive is one which can be renamed to a .COM file
  521. Xand executed as a program.  An example of such a file is the MS-DOS
  522. Xprogram ARC512.COM, which is a standard archive file preceded by a
  523. Xthree-byte jump instruction.  The first entry in this file is a simple
  524. X"bootstrap" program in uncompressed form, which loads the subfile
  525. XARC.EXE (also uncompressed) into memory and passes control to it.  In
  526. Xanticipation of a similar scheme for future distribution of UNARC, the
  527. Xprogram permits up to three bytes to precede the first header in an
  528. Xarchive file (with no error message).
  529. X
  530. X
  531. XCRC COMPUTATION
  532. X---------------
  533. X
  534. XArchive files use a 16-bit cyclic redundancy check (CRC) for error
  535. Xcontrol.  The particular CRC polynomial used is x^16 + x^15 + x^2 + 1,
  536. Xwhich is commonly known as "CRC-16" and is used in many data
  537. Xtransmission protocols (e.g. DEC DDCMP and IBM BSC), as well as by
  538. Xmost floppy disk controllers.  Note that this differs from the CCITT
  539. Xpolynomial (x^16 + x^12 + x^5 + 1), which is used by the XMODEM-CRC
  540. Xprotocol and the public domain CHEK program (although these do not
  541. Xadhere strictly to the CCITT standard).  The MS-DOS ARC program does
  542. Xperform a mathematically sound and accurate CRC calculation.  (We
  543. Xmention this because it contrasts with some unfortunately popular
  544. Xpublic domain programs we have witnessed, which from time immemorial
  545. Xhave based their calculation on an obscure magazine article which
  546. Xcontained a typographical error!)
  547. X
  548. XAdditional note (while we are on the subject of CRC's): The validity
  549. Xof using a 16-bit CRC for checking an entire file is somewhat
  550. Xquestionable.  Many people quote the statistics related to these
  551. Xfunctions (e.g. "all two-bit errors, all single burst errors of 16 or
  552. Xfewer bits, 99.997% of all single 17-bit burst errors, etc."), without
  553. Xrealizing that these claims are valid only if the total number of bits
  554. Xchecked is less than 32767 (which is why they are used in small-packet
  555. Xdata transmission protocols).  I.e., for file sizes in excess of about
  556. X4K bytes, a 16-bit CRC is not really as good as what is often claimed.
  557. XThis is not to say that it is bad, but there are more reliable methods
  558. Xavailable (e.g. the 32-bit AUTODIN-II polynomial).  (End of lecture!)
  559. X
  560. X                           Bob Freed
  561. X                           62 Miller Road
  562. X                           Newton Centre, MA  02159
  563. X                           Telephone (617) 332-3533
  564. X
  565. X
  566. ________This_Is_The_END________
  567. if test `wc -c < Arcinfo` -ne     5577; then
  568.     echo 'shar: Arcinfo was damaged during transit (should have been     5577 bytes)'
  569. fi
  570. fi        ; : end of overwriting check
  571. echo 'x - Sysvarcstuf'
  572. if test -f Sysvarcstuf; then echo 'shar: not overwriting Sysvarcstuf'; else
  573. sed 's/^X//' << '________This_Is_The_END________' > Sysvarcstuf
  574. XTo: Howard_Chu%um.cc.umich.edu%umix.uucp@umix.cc.umich.edu
  575. XDate: Fri, 15 Apr 88 19:12:24 EST
  576. XFrom: Jon Zeeff <zeeff%b-tech.UUCP@umix.cc.umich.edu>
  577. XIn-Reply-To: Message from "um.cc.umich.edu!Howard_Chu" of Apr 15
  578. XX-Mailer: Elm [version 1.7]
  579. XMessage-Id: <8804151912.AA00417@b-tech.UUCP>
  580. X 
  581. X 
  582. XHere is what I believe to be all the routines needed to run your arc on
  583. XSys V.3.  Sys V.2 people will also need the directory routines that
  584. Xwere posted in comp.sources.unix Vol 9 as gwyn-dir-lib.
  585. X 
  586. X 
  587. X#! /bin/sh
  588. X# This is a shell archive.  Remove anything before this line, then unpack
  589. X# it by saving it into a file and typing "sh file".  To overwrite existing
  590. X# files, type "sh file -c".  You can also feed this as standard input via
  591. X# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  592. X# will see the following message at the end:
  593. X#             "End of shell archive."
  594. X# Contents:  getwd.c scandir.sh utimes.c
  595. X# Wrapped by root@b-tech on Fri Apr 15 19:05:49 1988
  596. XPATH=/bin:/usr/bin:/usr/ucb ; export PATH
  597. Xif test -f getwd.c -a "${1}" != "-c" ; then
  598. X  echo shar: Will not over-write existing file \"getwd.c\"
  599. Xelse
  600. Xecho shar: Extracting \"getwd.c\" \(726 characters\)
  601. Xsed "s/^X//" >getwd.c <<'END_OF_getwd.c'
  602. XX/*
  603. XX * 4.2bsd getwd simulation for Sys V.3
  604. XX */
  605. XX
  606. XX#include <stdio.h>
  607. XX
  608. XX#define SYSV3
  609. XX
  610. XX#define MAXWD 1024           /* limited by 4.2 getwd(2) */
  611. XX
  612. XX#ifdef SYSV3
  613. XX
  614. XXchar *getcwd();
  615. XX
  616. XXchar *
  617. XXgetwd(path)
  618. XXchar *path;
  619. XX{
  620. XX    return(getcwd(path,MAXWD));
  621. XX}
  622. XX
  623. XX#else
  624. XX
  625. XX/*
  626. XX * 4.2bsd getwd simulation for Sys V.2
  627. XX */
  628. XX
  629. XX#include <stdio.h>
  630. XX
  631. XX#define MAXWD 1024           /* limited by 4.2 getwd(2) */
  632. XX
  633. XXchar *
  634. XXgetwd(path)
  635. XXchar *path;
  636. XX{
  637. XX     char *nlp;
  638. XX     FILE *fp;
  639. XX     FILE *popen();
  640. XX     char *strrchr();
  641. XX
  642. XX        putenv("IFS= \t\n");
  643. XX     fp = popen("PATH=/bin:/usr/bin pwd", "r");
  644. XX     if (fp == NULL)
  645. XX             return 0;
  646. XX     if (fgets(path, MAXWD, fp) == NULL) {
  647. XX             (void) pclose(fp);
  648. XX             return 0;
  649. XX     }
  650. XX     if ((nlp = strrchr(path, '\n')) != NULL)
  651. XX             *nlp = '\0';
  652. XX     (void) pclose(fp);
  653. XX     return path;
  654. XX}
  655. XX#endif
  656. XX
  657. XEND_OF_getwd.c
  658. Xif test 726 -ne `wc -c <getwd.c`; then
  659. X    echo shar: \"getwd.c\" unpacked with wrong size!
  660. Xfi
  661. X# end of overwriting check
  662. Xfi
  663. Xif test -f scandir.sh -a "${1}" != "-c" ; then
  664. X  echo shar: Will not over-write existing file \"scandir.sh\"
  665. Xelse
  666. Xecho shar: Extracting \"scandir.sh\" \(13502 characters\)
  667. Xsed "s/^X//" >scandir.sh <<'END_OF_scandir.sh'
  668. XXPath: uunet!husc6!hao!oddjob!gargoyle!ihnp4!cbosgd!mandrill!hal!ncoast!allbery
  669. XXFrom: rsalz@pebbles.bbn.com
  670. XXNewsgroups: comp.sources.misc
  671. XXSubject: scandir, ftw REDUX
  672. XXMessage-ID: <6943@ncoast.UUCP>
  673. XXDate: 1 Jan 88 00:47:01 GMT
  674. XXSender: allbery@ncoast.UUCP
  675. XXLines: 505
  676. XXApproved: allbery@ncoast.UUCP
  677. XXX-Archive: comp.sources.misc/8712/15
  678. XX
  679. XXForget my previous message -- I just decided for completeness's sake to
  680. XXimplement the SysV ftw(3) routine, too.
  681. XX
  682. XXTo repeat, these are public-domain implementations of the SystemV ftw()
  683. XXroutine, the BSD scandir() and alphasort() routines, and documentation for
  684. XXsame.  The FTW manpage could be more readable, but so it goes.
  685. XX
  686. XXAnyhow, feel free to post these, and incorporate them into your existing
  687. XXpackages.  I have readdir() routiens for MSDOS and the Amiga if anyone
  688. XXwants them, and should have them for VMS by the end of January; let me
  689. XXknow if you want copies.
  690. XX
  691. XXYours in filesystems,
  692. XX     /r$
  693. XX
  694. XXAnyhow, feel free to post
  695. XX#! /bin/sh
  696. XX# This is a shell archive.  Remove anything before this line, then unpack
  697. XX# it by saving it into a file and typing "sh file".  To overwrite existing
  698. XX# files, type "sh file -c".  You can also feed this as standard input via
  699. XX# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  700. XX# will see the following message at the end:
  701. XX#            "End of shell archive."
  702. XX# Contents:  alphasort.c ftw.3 ftw.c ftw.h scandir.3 scandir.c
  703. XX# Wrapped by rsalz@fig.bbn.com on Tue Dec 29 21:39:01 1987
  704. XXPATH=/bin:/usr/bin:/usr/ucb ; export PATH
  705. XXif test -f 'alphasort.c' -a "${1}" != "-c" ; then
  706. XX  echo shar: Will not clobber existing file \"'alphasort.c'\"
  707. XXelse
  708. XXecho shar: Extracting \"'alphasort.c'\" \(425 characters\)
  709. XXsed "s/^X//" >'alphasort.c' <<'END_OF_FILE'
  710. XXX/*
  711. XXX**  ALPHASORT
  712. XXX**  Trivial sorting predicate for scandir; puts entries in alphabetical order.
  713. XXX*/
  714. XXX#include <sys/types.h>
  715. XXX#include <sys/dir.h>
  716. XXX#ifdef      RCSID
  717. XXXstatic char RCS[] = "$Header: alphasort.c,v 1.1 87/12/29 21:35:59 rsalz Exp $";
  718. XXX#endif      /* RCSID */
  719. XXX
  720. XXX/* A convenient shorthand. */
  721. XXXtypedef struct direct        ENTRY;
  722. XXX
  723. XXXint
  724. XXXalphasort(d1, d2)
  725. XXX    ENTRY   **d1;
  726. XXX    ENTRY   **d2;
  727. XXX{
  728. XXX    return(strcmp(d1[0]->d_name, d2[0]->d_name));
  729. XXX}
  730. XXEND_OF_FILE
  731. XXif test 425 -ne `wc -c <'alphasort.c'`; then
  732. XX    echo shar: \"'alphasort.c'\" unpacked with wrong size!
  733. XXfi
  734. XX# end of 'alphasort.c'
  735. XXfi
  736. XXif test -f 'ftw.3' -a "${1}" != "-c" ; then
  737. XX  echo shar: Will not clobber existing file \"'ftw.3'\"
  738. XXelse
  739. XXecho shar: Extracting \"'ftw.3'\" \(2139 characters\)
  740. XXsed "s/^X//" >'ftw.3' <<'END_OF_FILE'
  741. XXX.TH FTW 3
  742. XXX.\" $Header: ftw.3,v 1.1 87/12/29 21:34:29 rsalz Exp $
  743. XXX.SH NAME
  744. XXXftw \- walk a file tree
  745. XXX.SH SYNOPSIS
  746. XXX.ft B
  747. XXX.nf
  748. XXX#include <ftw.h>
  749. XXX
  750. XXXint
  751. XXXftw(directory, funcptr, depth)
  752. XXX    char *directory;
  753. XXX    int (*funcptr)();
  754. XXX    int depth;
  755. XXX
  756. XXX#include <sys/stat.h>
  757. XXX
  758. XXXint
  759. XXXfuncptr(item, sb, flag)
  760. XXX    char *item;
  761. XXX    struct stat *sb;
  762. XXX    int flag;
  763. XXX.fi
  764. XXX.ft R
  765. XXX.SH DESCRIPTION
  766. XXX.I Ftw
  767. XXXwalks through the directory tree starting from the indicated
  768. XXX.IR path .
  769. XXXFor every entry it finds in the tree, it calls the user-supplied
  770. XXX.I funcptr
  771. XXXwith the calling sequence given in the synopsis above.
  772. XXXThe first argument is the full pathname of the entry (rooted from
  773. XXXthe
  774. XXX.I directory
  775. XXXparameter given to
  776. XXX.IR ftw );
  777. XXXthe second argument is a pointer to the
  778. XXX.IR stat (2)
  779. XXXstructure for the entry;
  780. XXXand the third argument is one of the #define's in the header file.
  781. XXXThis value will be one of the following:
  782. XXX.RS
  783. XXX.ta \w'FTW_DNR  'u
  784. XXX.nf
  785. XXXFTW_F       Item is a normal file
  786. XXXFTW_D       Item is a directory
  787. XXXFTW_NS      The stat failed on the item
  788. XXXFTW_DNR     Item is a directory which can't be read
  789. XXX.fi
  790. XXX.RE
  791. XXXNote, however, that FTW_F is a misnomer; anything other than directories
  792. XXXare (e.g., symbolic links) get the FTW_F tag.
  793. XXX.PP
  794. XXX.I Ftw
  795. XXXrecursively calls itself when it encounters a directory.
  796. XXXTo avoid using up all a program's file descriptors, the
  797. XXX.I depth
  798. XXXargument specifies the number of simultaneous open directories to maintain.
  799. XXXWhen the depth is exceeded, the routine will become noticeably
  800. XXXslower because directories are closed in ``most-recently-used'' order.
  801. XXX.PP
  802. XXXTo stop the tree walk, the user-supplied function should return a
  803. XXXnon\-zero value; this value will become the return value of
  804. XXX.IR ftw .
  805. XXXOtherwise,
  806. XXX.I ftw
  807. XXXwill continue until it has scanned the entire tree, in which case it will
  808. XXXreturn zero, or until it hits an error such as a
  809. XXX.IR malloc (3)
  810. XXXfailure, in which case it will return \-1.
  811. XXX.PP
  812. XXXBecause
  813. XXX.I ftw
  814. XXXuses dynamic data structures, the only safe way to exit out of a tree
  815. XXXwalk is to return a non-zero value.
  816. XXXTo handle interrupts, for example, mark that the interrupt occured
  817. XXXand return a non\-zero value\(em don't use
  818. XXX.I longjmp (3)
  819. XXXunless the program is going to terminate.
  820. XXX.SH SEE ALSO
  821. XXXstat(2)
  822. XXEND_OF_FILE
  823. XXif test 2139 -ne `wc -c <'ftw.3'`; then
  824. XX    echo shar: \"'ftw.3'\" unpacked with wrong size!
  825. XXfi
  826. XX# end of 'ftw.3'
  827. XXfi
  828. XXif test -f 'ftw.c' -a "${1}" != "-c" ; then
  829. XX  echo shar: Will not clobber existing file \"'ftw.c'\"
  830. XXelse
  831. XXecho shar: Extracting \"'ftw.c'\" \(2455 characters\)
  832. XXsed "s/^X//" >'ftw.c' <<'END_OF_FILE'
  833. XXX/*
  834. XXX**  FTW
  835. XXX**  Walk a directory hierarchy from a given point, calling a user-supplied
  836. XXX**  function at each thing we find.  If we go below a specified depth,
  837. XXX**  recycle file descriptors.
  838. XXX*/
  839. XXX#include <stdio.h>
  840. XXX#include <sys/types.h>
  841. XXX#include <sys/stat.h>
  842. XXX#include <sys/dir.h>
  843. XXX#include <ftw.h>
  844. XXX#ifdef      RCSID
  845. XXXstatic char RCS[] = "$Header: ftw.c,v 1.1 87/12/29 21:38:52 rsalz Exp $";
  846. XXX#endif      /* RCSID */
  847. XXX
  848. XXX/* Handy shorthand. */
  849. XXX#define EQ(a, b)    (strcmp((a), (b)) == 0)
  850. XXX
  851. XXX/* Linked in later. */
  852. XXXextern char         *malloc();
  853. XXXextern char         *strcpy();
  854. XXX
  855. XXX
  856. XXXint
  857. XXXftw(directory, funcptr, depth)
  858. XXX    char             *directory;
  859. XXX    int                     (*funcptr)();
  860. XXX    int                       depth;
  861. XXX{
  862. XXX    register DIR     *Dp;
  863. XXX    register char    *p;
  864. XXX    register int      i;
  865. XXX    struct direct    *E;
  866. XXX    struct stat               Sb;
  867. XXX    long              seekpoint;
  868. XXX    char             *fullpath;
  869. XXX
  870. XXX    /* If can't stat, tell the user so. */
  871. XXX    if (stat(directory, &Sb) < 0)
  872. XXX    return((*funcptr)(directory, &Sb, FTW_NS));
  873. XXX
  874. XXX    /* If it's not a directory, call the user's function. */
  875. XXX    if ((Sb.st_mode & S_IFMT) != S_IFDIR)
  876. XXX    /* Saying "FTW_F" here is lying, what if this is a symlink? */
  877. XXX    return((*funcptr)(directory, &Sb, FTW_F));
  878. XXX
  879. XXX    /* Open directory; and if we can't tell the user so. */
  880. XXX    if ((Dp = opendir(directory)) == NULL)
  881. XXX    return((*funcptr)(directory, &Sb, FTW_DNR));
  882. XXX
  883. XXX    /* See if user wants to go further. */
  884. XXX    if (i = (*funcptr)(directory, &Sb, FTW_D)) {
  885. XXX    closedir(Dp);
  886. XXX    return(i);
  887. XXX    }
  888. XXX
  889. XXX    /* Get ready to hold the full paths. */
  890. XXX    i = strlen(directory);
  891. XXX    if ((fullpath = malloc(i + 1 + MAXNAMLEN + 1)) == NULL) {
  892. XXX    closedir(Dp);
  893. XXX    return(-1);
  894. XXX    }
  895. XXX    (void)strcpy(fullpath, directory);
  896. XXX    p = &fullpath[i];
  897. XXX    if (i && p[-1] != '/')
  898. XXX    *p++ = '/';
  899. XXX
  900. XXX    /* Read all entries in the directory.. */
  901. XXX    while (E = readdir(Dp))
  902. XXX    if (!EQ(E->d_name, ".") && !EQ(E->d_name, "..")) {
  903. XXX        if (depth <= 1) {
  904. XXX            /* Going too deep; checkpoint and close this directory. */
  905. XXX            seekpoint = telldir(Dp);
  906. XXX            closedir(Dp);
  907. XXX            Dp = NULL;
  908. XXX        }
  909. XXX
  910. XXX        /* Process the file. */
  911. XXX        (void)strcpy(p, E->d_name);
  912. XXX        if (i = ftw(fullpath, funcptr, depth - 1)) {
  913. XXX            /* User's finished; clean up. */
  914. XXX            free(fullpath);
  915. XXX            if (Dp)
  916. XXX                closedir(Dp);
  917. XXX            return(i);
  918. XXX        }
  919. XXX
  920. XXX        /* Reopen the directory if necessary. */
  921. XXX        if (Dp == NULL) {
  922. XXX            if ((Dp = opendir(directory)) == NULL) {
  923. XXX                /* WTF? */
  924. XXX                free(fullpath);
  925. XXX                return(-1);
  926. XXX            }
  927. XXX            seekdir(Dp, seekpoint);
  928. XXX        }
  929. XXX    }
  930. XXX
  931. XXX    /* Clean up. */
  932. XXX    free(fullpath);
  933. XXX    closedir(Dp);
  934. XXX    return(0);
  935. XXX}
  936. XXEND_OF_FILE
  937. XXif test 2455 -ne `wc -c <'ftw.c'`; then
  938. XX    echo shar: \"'ftw.c'\" unpacked with wrong size!
  939. XXfi
  940. XX# end of 'ftw.c'
  941. XXfi
  942. XXif test -f 'ftw.h' -a "${1}" != "-c" ; then
  943. XX  echo shar: Will not clobber existing file \"'ftw.h'\"
  944. XXelse
  945. XXecho shar: Extracting \"'ftw.h'\" \(358 characters\)
  946. XXsed "s/^X//" >'ftw.h' <<'END_OF_FILE'
  947. XXX/*
  948. XXX**  <FTW.H>
  949. XXX**  Header values for the third parameter to the user-supplied function
  950. XXX**  for ftw().
  951. XXX**
  952. XXX**  $Header: ftw.h,v 1.1 87/12/29 21:34:34 rsalz Exp $
  953. XXX*/
  954. XXX
  955. XXX#define FTW_NS              100     /* Something stat(2) failed on          */
  956. XXX#define FTW_DNR             200     /* Something opendir(3) failed on       */
  957. XXX#define FTW_F               300     /* A normal file                        */
  958. XXX#define FTW_D               400     /* A directory                          */
  959. XXEND_OF_FILE
  960. XXif test 358 -ne `wc -c <'ftw.h'`; then
  961. XX    echo shar: \"'ftw.h'\" unpacked with wrong size!
  962. XXfi
  963. XX# end of 'ftw.h'
  964. XXfi
  965. XXif test -f 'scandir.3' -a "${1}" != "-c" ; then
  966. XX  echo shar: Will not clobber existing file \"'scandir.3'\"
  967. XXelse
  968. XXecho shar: Extracting \"'scandir.3'\" \(2350 characters\)
  969. XXsed "s/^X//" >'scandir.3' <<'END_OF_FILE'
  970. XXX.TH SCANDIR 3
  971. XXX.\" $Header: scandir.3,v 1.1 87/12/29 21:35:54 rsalz Exp $
  972. XXX.SH NAME
  973. XXXscandir, alphasort \- scan a directory
  974. XXX.SH SYNOPSIS
  975. XXX.nf
  976. XXX.ft B
  977. XXX#include <sys/types.h>
  978. XXX#include <sys/dir.h>
  979. XXX
  980. XXXint
  981. XXXscandir(name, list, selector, sorter)
  982. XXX.in +4n
  983. XXXchar *name;
  984. XXXstruct direct ***list;
  985. XXXint (*selector)();
  986. XXXint (*sorter)();
  987. XXX.in -4n
  988. XXX
  989. XXXint
  990. XXXalphasort(d1, d2)
  991. XXX.in +4n
  992. XXXstruct direct **d1;
  993. XXXstruct direct **d2;
  994. XXX.in -4n
  995. XXX.ft R
  996. XXX.fi
  997. XXX.SH DESCRIPTION
  998. XXX.I Scandir
  999. XXXreads the directory
  1000. XXX.I name
  1001. XXXand builds a NULL\-terminated array of pointers to the entries found
  1002. XXXin that directory.
  1003. XXXThis array is put into the location pointed to by the
  1004. XXX.I list
  1005. XXXparameter.
  1006. XXX.PP
  1007. XXXIf the
  1008. XXX.I selector
  1009. XXXparameter is non\-NULL, it is taken to be a pointer to a function called
  1010. XXXwith each entry, to determine whether or not it should be included in
  1011. XXXthe returned list.
  1012. XXXIf the parameter is NULL, all entries are included.
  1013. XXX.PP
  1014. XXXAs an added feature, the entries can be sorted (with
  1015. XXX.IR qsort (3))
  1016. XXXbefore the list is returned.
  1017. XXXIf the
  1018. XXX.I sorter
  1019. XXXparameter is non\-NULL, it is passed to qsort to use as the comparison
  1020. XXXfunction.
  1021. XXXThe
  1022. XXX.I alphasort
  1023. XXXroutine is provided to sort the array alphabetically.
  1024. XXX.PP
  1025. XXXThe array pointed to by
  1026. XXX.I list
  1027. XXXand the items it points to are all space obtained through
  1028. XXX.IR malloc (3),
  1029. XXXand their storage can be reclaimed as shown in the example below.
  1030. XXX.SH "EXAMPLE"
  1031. XXXHere is a small
  1032. XXX.IR ls (1)\-like
  1033. XXXprogram:
  1034. XXX.ne 50
  1035. XXX.RS
  1036. XXX.nf
  1037. XXX#include <stdio.h>
  1038. XXX#include <sys/types.h>
  1039. XXX#include <sys/stat.h>
  1040. XXX#include <sys/dir.h>
  1041. XXX
  1042. XXXextern int alphasort();
  1043. XXX
  1044. XXXstatic int
  1045. XXXfilesonly(e)
  1046. XXX    struct direct *e;
  1047. XXX{
  1048. XXX    struct stat sb;
  1049. XXX
  1050. XXX    return(stat(e->d_name, &sb) >= 0 && (sb.st_mode & S_IFMT) == S_IFREG);
  1051. XXX}
  1052. XXX
  1053. XXXmain(ac, av)
  1054. XXX    int ac;
  1055. XXX    char *av[];
  1056. XXX{
  1057. XXX    register int i;
  1058. XXX    register int j;
  1059. XXX    struct direct **list;
  1060. XXX
  1061. XXX    if (ac != 2) {
  1062. XXX            fprintf(stderr, "usage: %s dirname\n", av[0]);
  1063. XXX            exit(1);
  1064. XXX    }
  1065. XXX    if (chdir(av[1]) < 0) {
  1066. XXX            perror(av[1]);
  1067. XXX            exit(1);
  1068. XXX    }
  1069. XXX    if ((i = scandir(".", &list, filesonly, alphasort)) < 0) {
  1070. XXX            perror("Error reading directory");
  1071. XXX            exit(1);
  1072. XXX    }
  1073. XXX    for (j = 0; j < i; j++)
  1074. XXX            printf("%s\n", list[j]->d_name);
  1075. XXX    for (j = 0; j < i; j++)
  1076. XXX            free((char *)list[j]);
  1077. XXX    free((char *)list);
  1078. XXX    exit(0);
  1079. XXX}
  1080. XXX.fi
  1081. XXX.RE
  1082. XXX.SH "SEE ALSO"
  1083. XXXdirectory(3), qsort(3)
  1084. XXX.SH DIAGNOSTICS
  1085. XXXReturns the number of entries in the ``list,'' or \-1 if the directory
  1086. XXXcould not be opened or a memory allocation failed.
  1087. XXX.SH BUGS
  1088. XXXThe routine can be slightly wasteful of space.
  1089. XXEND_OF_FILE
  1090. XXif test 2350 -ne `wc -c <'scandir.3'`; then
  1091. XX    echo shar: \"'scandir.3'\" unpacked with wrong size!
  1092. XXfi
  1093. XX# end of 'scandir.3'
  1094. XXfi
  1095. XXif test -f 'scandir.c' -a "${1}" != "-c" ; then
  1096. XX  echo shar: Will not clobber existing file \"'scandir.c'\"
  1097. XXelse
  1098. XXecho shar: Extracting \"'scandir.c'\" \(1777 characters\)
  1099. XXsed "s/^X//" >'scandir.c' <<'END_OF_FILE'
  1100. XXX/*
  1101. XXX**  SCANDIR
  1102. XXX**  Scan a directory, collecting all (selected) items into a an array.
  1103. XXX*/
  1104. XXX#include <sys/types.h>
  1105. XXX#include <sys/dir.h>
  1106. XXX#ifdef      RCSID
  1107. XXXstatic char RCS[] = "$Header: scandir.c,v 1.1 87/12/29 21:35:56 rsalz Exp $";
  1108. XXX#endif      /* RCSID */
  1109. XXX
  1110. XXX/* Initial guess at directory size. */
  1111. XXX#define INITIAL_SIZE        20
  1112. XXX
  1113. XXX/* A convenient shorthand. */
  1114. XXXtypedef struct direct        ENTRY;
  1115. XXX
  1116. XXX/* Linked in later. */
  1117. XXXextern char         *malloc();
  1118. XXXextern char         *realloc();
  1119. XXXextern char         *strcpy();
  1120. XXX
  1121. XXX
  1122. XXXint
  1123. XXXscandir(Name, List, Selector, Sorter)
  1124. XXX    char              *Name;
  1125. XXX    ENTRY           ***List;
  1126. XXX    int                      (*Selector)();
  1127. XXX    int                      (*Sorter)();
  1128. XXX{
  1129. XXX    register ENTRY   **names;
  1130. XXX    register ENTRY    *E;
  1131. XXX    register DIR      *Dp;
  1132. XXX    register int       i;
  1133. XXX    register int       size;
  1134. XXX
  1135. XXX    /* Get initial list space and open directory. */
  1136. XXX    size = INITIAL_SIZE;
  1137. XXX    if ((names = (ENTRY **)malloc(size * sizeof names[0])) == NULL
  1138. XXX     || (Dp = opendir(Name)) == NULL)
  1139. XXX    return(-1);
  1140. XXX
  1141. XXX    /* Read entries in the directory. */
  1142. XXX    for (i = 0; E = readdir(Dp); )
  1143. XXX    if (Selector == NULL || (*Selector)(E)) {
  1144. XXX        /* User wants them all, or he wants this one. */
  1145. XXX        if (++i >= size) {
  1146. XXX            size <<= 1;
  1147. XXX            names = (ENTRY **)realloc((char *)names, size * sizeof names[0]);
  1148. XXX            if (names == NULL) {
  1149. XXX                closedir(Dp);
  1150. XXX                return(-1);
  1151. XXX            }
  1152. XXX        }
  1153. XXX
  1154. XXX        /* Copy the entry. */
  1155. XXX        if ((names[i - 1] = (ENTRY *)malloc(DIRSIZ(E))) == NULL) {
  1156. XXX            closedir(Dp);
  1157. XXX            return(-1);
  1158. XXX        }
  1159. XXX        names[i - 1]->d_ino = E->d_ino;
  1160. XXX        names[i - 1]->d_reclen = E->d_reclen;
  1161. XXX        names[i - 1]->d_namlen = E->d_namlen;
  1162. XXX        (void)strcpy(names[i - 1]->d_name, E->d_name);
  1163. XXX    }
  1164. XXX
  1165. XXX    /* Close things off. */
  1166. XXX    names[i] = NULL;
  1167. XXX    *List = names;
  1168. XXX    closedir(Dp);
  1169. XXX
  1170. XXX    /* Sort? */
  1171. XXX    if (i && Sorter)
  1172. XXX    qsort((char *)names, i, sizeof names[0], Sorter);
  1173. XXX
  1174. XXX    return(i);
  1175. XXX}
  1176. XXEND_OF_FILE
  1177. XXif test 1777 -ne `wc -c <'scandir.c'`; then
  1178. XX    echo shar: \"'scandir.c'\" unpacked with wrong size!
  1179. XXfi
  1180. XX# end of 'scandir.c'
  1181. XXfi
  1182. XXecho shar: End of shell archive.
  1183. XXexit 0
  1184. XEND_OF_scandir.sh
  1185. Xif test 13502 -ne `wc -c <scandir.sh`; then
  1186. X    echo shar: \"scandir.sh\" unpacked with wrong size!
  1187. Xfi
  1188. X# end of overwriting check
  1189. Xfi
  1190. Xif test -f utimes.c -a "${1}" != "-c" ; then
  1191. X  echo shar: Will not over-write existing file \"utimes.c\"
  1192. Xelse
  1193. Xecho shar: Extracting \"utimes.c\" \(373 characters\)
  1194. Xsed "s/^X//" >utimes.c <<'END_OF_utimes.c'
  1195. XX
  1196. XX/* bsd utimes emulation for Sys V */
  1197. XX/* by Jon Zeeff */
  1198. XX
  1199. XX#include <sys/types.h>
  1200. XX
  1201. XXstruct utimbuf {
  1202. XX     time_t  actime;
  1203. XX     time_t  modtime;
  1204. XX};
  1205. XX
  1206. XXstruct timeval {
  1207. XX     long    tv_sec;
  1208. XX     long    tv_usec;
  1209. XX};
  1210. XX
  1211. XXutimes(path,tvp)
  1212. XXchar *path;
  1213. XXstruct timeval tvp[2];
  1214. XX{
  1215. XX
  1216. XXstruct utimbuf times;
  1217. XX
  1218. XXtimes.actime = (time_t) tvp[0].tv_sec;
  1219. XXtimes.modtime = (time_t) tvp[1].tv_sec;
  1220. XX
  1221. XXreturn utime(path,times);
  1222. XX
  1223. XX}
  1224. XEND_OF_utimes.c
  1225. Xif test 373 -ne `wc -c <utimes.c`; then
  1226. X    echo shar: \"utimes.c\" unpacked with wrong size!
  1227. Xfi
  1228. X# end of overwriting check
  1229. Xfi
  1230. Xecho shar: End of shell archive.
  1231. Xexit 0
  1232. X
  1233. ________This_Is_The_END________
  1234. if test `wc -c < Sysvarcstuf` -ne    18327; then
  1235.     echo 'shar: Sysvarcstuf was damaged during transit (should have been    18327 bytes)'
  1236. fi
  1237. fi        ; : end of overwriting check
  1238. echo 'x - tws.h'
  1239. if test -f tws.h; then echo 'shar: not overwriting tws.h'; else
  1240. sed 's/^X//' << '________This_Is_The_END________' > tws.h
  1241. X/* tws.h - header file for libtws date/time library 
  1242. X   (from mod.sources, Volume 8, Issue 81.)
  1243. X
  1244. X{Second distribution of phoon, deltime, and libtws - 24feb87.
  1245. X     Jef Poskanzer, UniSoft Systems, Berkeley
  1246. X     unisoft!jef@ucbvax.Berkeley.Edu
  1247. X          ...ucbvax!unisoft!jef
  1248. X          (415)644-1230    }
  1249. X
  1250. XThis library is used to allow date stamping of files in Unix. The
  1251. Xstandard time routines in Unix do not provide routines to convert a
  1252. Xparsed time into a time(3) clock value, so.... If you don't have this
  1253. Xcode, and can't get it, take out the references to it in arcdos.c,
  1254. Xand remove the reference to tws.h and libtws.a in the Makefile.
  1255. X
  1256. X            -- Howard Chu, March 3, 1987
  1257. X               University of Michigan Computing Center
  1258. X               hyc@umix.cc.umich.edu
  1259. X               ...uunet!umix!hyc    */
  1260. X
  1261. X
  1262. X/* Definition of the tws data structure. */
  1263. X
  1264. Xstruct tws {
  1265. X    int     tw_sec;
  1266. X    int     tw_min;
  1267. X    int     tw_hour;
  1268. X
  1269. X    int     tw_mday;
  1270. X    int     tw_mon;
  1271. X    int     tw_year;
  1272. X
  1273. X    int     tw_wday;
  1274. X    int     tw_yday;
  1275. X
  1276. X    int     tw_zone;
  1277. X
  1278. X    long    tw_clock;
  1279. X
  1280. X    int     tw_flags;
  1281. X#define TW_NULL 0x0000
  1282. X#define TW_SDAY 0x0007        /* how day-of-week was determined */
  1283. X#define   TW_SNIL 0x0000    /*   not given */
  1284. X#define   TW_SEXP 0x0001    /*   explicitly given */
  1285. X#define   TW_SIMP 0x0002    /*   implicitly given */
  1286. X#define TW_DST  0x0010        /* daylight savings time */
  1287. X#define TW_ZONE 0x0020        /* use numeric timezones only */
  1288. X#define TW_JUNK 0x0040        /* date string contained junk */
  1289. X};
  1290. X
  1291. X
  1292. X/* Declarations of routines. */
  1293. X
  1294. Xvoid twscopy( );
  1295. X    /* twscopy( &totws, &fromtws ) copies a tws */
  1296. Xint twsort( );
  1297. X    /* twsort( &tws1, &tws2 ) compares two tws's: 1 means tws1 is
  1298. X       later; -1 means tws1 is earlier; 0 means they are equal */
  1299. Xlong twclock( );
  1300. X    /* twclock( &tws ) turns a tws into a time(3)-style clock value */
  1301. Xlong twjuliandate( );
  1302. X    /* twjuliandate( &tws ) returns the Julian day number of a tws */
  1303. Xlong twsubtract( );
  1304. X    /* twsubtract( &tws1, &tws2 ) returns seconds of difference */
  1305. X
  1306. X/* These routines are functionally similar to the ctime(3) routines
  1307. X   in the standard Unix library. */
  1308. Xchar *dctime( );
  1309. X    /* dctime( &tws ) returns a string for the date/time passed in */
  1310. Xstruct tws *dlocaltime( );
  1311. X    /* dlocaltime( &clock ) turns a time(3) clock value into a tws */
  1312. Xstruct tws *dgmtime( );
  1313. X    /* dgmtime( &clock ) turns a time(3) clock value into a tws */
  1314. Xchar *dasctime( );
  1315. X    /* dasctime( &tws, flags ) turns a tws into a string */
  1316. Xchar *dtimezone( );
  1317. X    /* dtimezone( offset, flags ) returns the name of the time zone */
  1318. X
  1319. Xchar *dtimenow( );
  1320. X    /* dtimenow( ) returns a string for the current date/time */
  1321. X
  1322. Xstruct tws *dparsetime( );
  1323. X    /* dparsetime( &str ) turns a string into a tws */
  1324. X
  1325. Xstruct tws *dtwstime( );
  1326. X    /* dtwstime( ) returns a tws for the current date/time */
  1327. X
  1328. X#ifdef ATZ
  1329. X#define dtime(cl) dasctime( dlocaltime( cl ), TW_NULL )
  1330. X#else
  1331. X#define dtime(cl) dasctime( dlocaltime( cl ), TW_ZONE )
  1332. X#endif
  1333. X
  1334. X#define dtwszone(tw) dtimezone( tw -> tw_zone, tw -> tw_flags )
  1335. X
  1336. X
  1337. Xextern char   *tw_dotw[], *tw_ldotw[], *tw_moty[];
  1338. ________This_Is_The_END________
  1339. if test `wc -c < tws.h` -ne     2985; then
  1340.     echo 'shar: tws.h was damaged during transit (should have been     2985 bytes)'
  1341. fi
  1342. fi        ; : end of overwriting check
  1343. exit 0
  1344.  
  1345. -- 
  1346. Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.
  1347.  
  1348.  
  1349.